Horoscope Companion: Gemini/Horoscope Companion: Gemini.iso/pc/gemini/cd.dir/Internal_11.ls

Text File | 1996-10-08 | 456 b | 26 lines

on startRollover whichSprite
  hStartRolloverAction(whichSprite)
end

on mouseDown
  if hButtonAction02() then
    mouseUp()
  end if
end

on mouseUp
  global gTextSpriteNum, gWhichMonth
  cursor(4)
  hCheckCurrentFrameLabel()
  if the type of sprite gTextSpriteNum <> 0 then
    hDefaultScrollText()
  end if
  puppetSprite(the clickOn, 0)
  set gWhichMonth to "May"
  play frame "DA"
end

on endRollover whichSprite
  hEndRolloverAction(whichSprite)
end